00100	ARRAY F1,F2,F3,F4(512);
00200	COMPILE;
00300	INSTRUMENT VINS;
00400	ZOSCIL(P3*P9,MAG/P2,P11);
00500	INTRP(P6*P5*MAG,P7*P5*MAG,P12);
00600	OSCIL(U2,P5*MAG,F1);
00900	ZOSCIL(U1,P4*MAG+U3,F1);
00910	ZOSCIL(U1*((1-P9)/P9),P8*MAG+(P10*U3),F1);
01000	OUTA←OUTA+U4+U5;
01100	END;
01200	FINISH;
01300	SYNTH(F1);1 1 999
01600	SRATE←25000;MAG←512/SRATE;SPEED←2;NCHNS←1;